﻿
Imports System.IO
Imports xhtmlctrl

Public Class delayJump
    Inherits meta

    Public destination As String = Nothing
    Public delay As Int64 = 0

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        http_equiv = "refresh"
    End Sub

    Protected Overrides Function render(ByVal compress As Boolean) As Boolean
        setContent()
        Return MyBase.render(compress)
    End Function

    Protected Sub setContent()
        If isemptystring(destination) Then
            content = Convert.ToString(delay)
        Else
            content = Convert.ToString(delay) + character.semicolon + "url=" + destination
        End If
    End Sub

End Class
